home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / metamail / contrib / ServiceMail / src / services / fax.tcl < prev    next >
Encoding:
Text File  |  1993-05-07  |  1.1 KB  |  30 lines
  1. # fax
  2. #
  3. # Fri Jan  1 15:31:10 1993 Salil Deshpande
  4. #
  5. # This service scans through a message body for postscript source, and
  6. # sends what it found to the printer.  If the input is a multipart, it
  7. # scans through the last body in the multipart.  It also does a check
  8. # to see if the address is local (it won't print otherwise).
  9. #
  10. proc fax {switches envelope inputs} {
  11.     if {[local [getfield $envelope FROM]]} {
  12.       if {[getfield $inputs TYPE] == "multipart"} {
  13.     set parts [getfield $inputs PARTS]
  14.     return [fax $switches $envelope [lindex $parts [expr [llength $parts] - 1]]]
  15.       } {
  16.     set user [getfield $envelope FROM]
  17.     set userdb [glob ~$user/.faxdb]
  18.     exec /bin/rm -f [glob ~services/.faxdb]
  19.     exec ln -s $userdb [glob ~services/.faxdb]
  20.         exec sendfax -m -d $switches [getfield $inputs FILE]
  21.     exec /bin/rm -f [glob ~services/.faxdb]
  22.     setfield response STRING "Message sent to Fax Machine."
  23.     return [mailout [turnaround $envelope] $response]
  24.       }
  25.     } {
  26.       setfield response STRING "Sorry, I can only fax for locals."
  27.       return [mailout [turnaround $envelope] $response]
  28.     }
  29. }
  30.